<p> plot(data,char,size,clr) ..... Strip paired 0's </p>

f1536249-cf7b-4dc4-aac1-b830fc55f5af 12 7 10 false true 0 decimal

&[DATE] &[TIME] - &[FILENAME]

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 13 mat for data r3 r4 r5 augment 21 line :

Strip paired 0's

data Strip2 nest striped in 'R' u data 1 col : v data 2 col : k 0 : i 1 data rows range u i el v i el * 0 ≠ R k k 1 + : el u i el v i el 12 mat : 11 line End of strip if 11 line for 21 line Un-nest R v R 1 el : j 2 R rows range v v R j el stack : for v 81 line :

data Strip3 nest striped in 'R' u data 1 col : v data 2 col : k 0 : i 1 data rows range u i el v i el * 0 ≠ R k k 1 + : 1 el u i el : R k 2 el v i el : 21 line End of strip if 11 line for 21 line R 51 line :

D 18 in * :

s 3.5 D * :

Rows Cols η 1 D s / atan 90 deg * / Cols 1 - (Rows * Rows 1 - (Cols * + Rows Cols * / (* - :

N.rows 3 :

N.cols 3 :

N.rows N.cols η 0.76

r 110 1.1 range :

i 1 r length range A i 1 el r i el : A i 2 el A i 1 el z η 0.8524 ≡ z solve : 21 line for

i 4 r length range A1 i 1 el r i el : A1 i 2 el A1 i 1 el z η 0.8 ≡ z solve : 21 line for

i 12 r length range A2 i 1 el r i el : A2 i 2 el A2 i 1 el z η 0.75 ≡ z solve : 21 line for

i 1 r length range A4 i 1 el r i el : A4 i 2 el A4 i 1 el z η 0.95 ≡ z solve : 21 line for

i 40 r length range A3 i 1 el r i el : A3 i 2 el A3 i 1 el z η 0.70 ≡ z solve : 21 line for

i 1 r length range A5 i 1 el r i el : A5 i 2 el A5 i 1 el z η 0.9 ≡ z solve : 21 line for

t 1 time :

strip the unwanted 0's A1 A1 Strip2 : A2 A2 Strip2 : A3 A3 Strip2 : 31 sys

exec 1 time t - : 0.3789997 s *

t 1 time :

strip the unwanted 0's A1 A1 Strip3 : A2 A2 Strip3 : A3 A3 Strip3 : 31 sys

exec 1 time t - : 0.04 s *

A o 5 black plot A1 o 5 black plot A2 o 5 black plot A3 o 5 black plot A4 o 5 black plot A5 o 5 black plot A A1 A2 A3 A4 A5 12 1 sys A A1 A2 A3 A4 A5 6 1 sys